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IT iS iis iri iti titi iii iii iti irri rrr i rir irr 
++ 

; FACILITY: VAX/VMS MAIL UTILITY 

; ABSTRACT: ADDRESSEE LIST ROUTINES 


; ENVIRONMENT: NATIVE/USER MODE 
AUTHOR: LEN KAWELL, CREATION DATE: 22-NOV-78 
MODIFICATION HISTORY: 


; V03-015 BLS0340 _ Benn Schreiber 10-AUG-1984 
3 Correct handling of alternate protocol if nodename 
; specified. 

; V03-014 ROPO002 Robert Posniak 30-MAY-1984 


Check for prot%’‘quotedagibberish’’. Strip 
quotes from gibberish. 


v03-013 BLS0310 Benn Schreiber |. 27-APR-1984 
Check for blank line before checking comment in 
address List parsing. 


v03-012 BLS0292 Benn Schreiber 30-MAR-1984 
Correct call to free_vm to only pass two args. 


v03-011 BLS0263 Benn Schreiber | 22-Jan-1984 
Honor terminal bogical name attribute. Remove resultant 
file spec substitution. Too much work required to make 
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acre v04-00 
=SEP-1984 DDRLIST.MAR; 1 


it work right now. 
v03-010 BLS0261 Benn Schreiber 17-Jan-1984 
Correct references to uaf$b_flags and uaf$v_disnewmail 
v03-009 BLS0255 Benn S er 28-Dec-1983 


chreib 
Substitute resultant dist. file spec if only item in 
the list. Correct errors when protocol epee used. 
Add call to see if addressee already in the List. 


v03-008 BLS0246 Benn Schreiber 28-Nov-1983 
Fix loop detection counter reset. Add call to see if 
pot the 7 ige node is in current cluster and skip network 
setup so. 


v03-007 BLS0235 Benn Schreiber 29-Aug= 1989 
Standardize file error reporting in distribution List handling. 
Ay ae to UAF buffer. Catch more junky addressee specs 
at parse time. 


v03-006 BLS0222 Benn Schreiber 15-May-1983 
Ignore blank Lines in addressee Lists 
v03-005 BLS0214 Benn Schreiber 27-Mar-1983 


Enhance error detection. Correct stack offset in 
distribution List handling. Set SQ0 when reading 
distribution List. 


v03-004 BLS0211 Benn Schreiber 13-Mar-1983 
Extensive rework for optional protocol spec and multi-threaded 
server 
V03-003 BLS0184 Benn Schreiber | 24-Sep-1982 
If addressee is on same node, skip setting up logical 
Link. This can be forced by using ‘’__node’’ to use decnet 
v03-002 BLS0179 Benn Schreiber 25-Jul-1982 
Allow hyphens in user names. 
v03-001 BLS0177 Benn Schreiber 22-Jun-1982 


Allow periods in user names. Check for recursive logical name 
translation loop that does not terminate. Implement the mail 
disabled flag (UAFSV_DISMAIL in the UAF record). Implement 
MAIL logical names (Ronor forwarding address in 

SYSSSYSTEM: VMSMAIL.DAT) 
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WR O OONAUE WN | O OONAUE WN O OODNAUES WN OOONOUS Win OWOo 
Se Se Se Ge Se Se Ge Ge Se Ge Ge Se Ge Ge Ge Se Ge Ge Se Se Se Ge Se Se Ge Ge Fe Se Ge Se Se Se Se Se Sse Se Ge Se Se Ge Fe Ge Ge te Se Se 


COOCCSCSCOSOOCOSOOOOOOSSOOSOOSOOSOOSOOOOOOOOOOOoOoOoOO 
SOOO OOO0O00 000010000009 09 09 09 09 09 09 098 SI INI NNO AA AAAAAOOrvnn 


ono 


— 


MAILSADDRLIST ADDRESSEE LIST ROUTINES 16-SEP-1984 00:43:35 VAX/VMS Macro V04-00 Page 
v04-000 DECLARATIONS eet 80:83 508 EMAIL SRC ADDRLIST.MAR; 1 ° 
000 105 »SBTTL DECLARATIONS 
Nitta 1 8 3 
Bo08 107 ; INCLUDE FILES: 
000 108; 
0000 109 
84 110 ; 
000 111 ; MACROS: 
0000 16 ; 
0000 11 
0000 114; 
0000 115 ; EQUATED SYMBOLS: 
444 116; 
000 = 8=6(117 
00000004 0000 118 ADDR = 4 ADDRESSEE NAME DESC ADDR ARG 
00000004 0000 119 FAB = 4 MESSAGE FILE FAB ADDR ARG 
00000008 44 \$9 RAB = 8 sMESSAGE FILE RAB ADDR ARG 
0000002c 0000 136 COMMA = 44 sASCII COMMA 
00000020 0000 1g CH_SPACE = *a/ / 
00000009 0000 124 = “As o/ 
000000F F 9008 199 MATLSK_INBUFFSZ = 255 ; INPUT BUFFER SIZE 
0000 i127 SCHF DEF ; CONDITION HANDLER DEFINITIONS 
0000 128 $F ABDEF sFILE ACCESS BLOCK DEFINITIONS 
0000 129 SLNMDEF ;LOGICAL NAME DEFINITIONS 
0000 130 SMAILMSGDEF sMAIL MESSAGES 
0000 8131 SNAMDEF yNAM BLOCK DEFINITIONS 
0000 132 SRABDEF RECORD ACCESS BLOCK DEFINITIONS 
0000 133 S$STSDEF STATUS CODE DEFINITIONS 
0000 134 STPADEF ;TPARSE DEFINITIONS 
0000 135 DEF ADDRESSEE LIST DESCRIPTORS 
0000 136 CNCTDEF ;CONNECT BLOCK OFFSETS 
0000 137 LNKDEF sLOGICAL LINK BLOCK OFFSETS 
0000 138 MAIFDEF ;DEFINE MAIL GLOBAL FLAGS 
0000 139 VMDDEF ; MAIL FILE OFFSETS 
0000 140 
0000 141; 
44 106 3; DEFINE LOCAL NAMES FOR SHARED MESSAGES 
O008 148 SSHR_MSGDEF MAIL,126,LOCAL,<<READERR, ERROR>, <OPENIN, ERROR>> 
0000 146; 
0 $8 ee : DEFINE EXTENSION TO THE TPARSE BLOCK 
24 6 00 149 TPA -L-LCOUNT = TPASL_PARAM+4 :LOOP COUNT 
¢8 8 00 150 TPA_Q~ONAME = TPA_L_CCOUNT+4 :DESCRIP TOR uot ORIGINAL NAME 
000 0 00 151 TPA_L-LLNK = TPA 0 ONAME?8 sLOGICAL K OR O IF LOCAL 
00000034 0000 136 TPA_Q-LOGNAM = TPA_L_LLNK+4 :DESCRIPT 
900 3¢ 8 00 153 TPA_Q~PNAM = TPA_Q-LOGNAM+8 ; PROTOCOL NAnE DESCRIPTOR 
0000044 00 154 TPA-L~CNCT = TPA_Q”PNAM+8 sADDR OF CNCT DESC 
00000048 0 8 155 TPA_L_PTPA = TPA_L-CNCT+4 SADDR OF PREV. TPARSE BLOCK 
0000004C 000 156 TPA_L-SPST = TPA-L-PTPA+4 [START OF SPEC IN STRING 
000 28 00 157 TPATQ“UNAME = TPA_C_SPST+4 :USERNAME DESCRIPTOR 
000005 00 158 TPA-WIUENT = TPA_G_ONAME+8 # USERS (CALLS TO ENTER_ADDR, ACTUALLY) 
000005A 00 159 TPALW"FLAGS = TPA_Q_UENT+2 GS 
0000000 00 160 TRAV. TERMINAL & = CLAST LOGICAL USERNAME WAS TERMINAL 
00000001 00 161 TPA-M- TERMINAL = 1 MASK FOR FLAG 
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00000038 i 168 TPA_C_EXTRA = TPA_W_FLAGS+2=TPA_L_LCOUNT;LENGTH OF EXTENSION 
00 165 ¢ OWN STORAGE 
00 166 : ‘ 
00 16 
00000000 168 .PSECT $PLIT$,LONG,RD,NOWRT,NOEXE 
0000 170 DIST_TYPE: ;DISTRIBUTION LIST FILE TYPE 
53 49 44 2E 0000 171 SASCII /.DIS/ 
00000004 0004 1% DIST_TYPE_SIZ = .-DIST_TYPE 
0004 17 
0004 174 AT_STRING: 
40 0004 175 sASCII /a/ 
0005 176 
00000000 177 .PSECT $CODE$,LONG,RD,NOWRT,EXE 
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SEE LIST ~SEP-1984 01:50:06 (CMAIL.SRCJADDRLIST.MAR; 1 
66 -SBTTL ADD ADDRESSEE TO ADDRESSEE LIST 

+ FUNCTIONAL DESCRIPTION: 

PARSE ADDRESSEE NAMES AND ADD TO ADDRESSEE LIST. 


; CALLING SEQUENCE: 
; CALL MAILSADD_ADDR(ADDR, CNCTDESC) 


> 
o 
LJ 
>m 
om 
mm 
w 
“wr 
me 


; INPUT Ve wt 
; 4(AP) = ADDRESSEE NAME(S) DESC 
8(AP) = ADDRESS OF CONNECT BLOCK DESCRIPTOR 


SOOoOOooCOCoooQooCOoooOooooooooooooeosNo 93M 
COOoOQOoCoCoQoooooQoQooooooooooooocosao wm 


S 
ET 
0 179 
0 180 
5 1 
0 188 : 
0000 184 ; 
0000 185 ; 
0000 186 : 
0000 187: 
0 0 188: 
0 189: 
0000 190: 
0000 191 : 
0000 135 : 
0000 193 : OUTPUT PARAMETERS: 
0000 194 : NONE 
0000 195; 
0000 196: IMPLICIT OUTPUTS: 
0000 197: DRESSEE LIST ENTRIES CREATED FOR ADDRESSEE(S) AND ENTERED 
0000 198 : INTO ADDRES SEE LIST. IF DRESSEE IS LOCATED ON A REMOTE 
0000 199 : SYSTEM, A LOGICAL LINK AND LOGICAL LINK LIST ENTRY ARE ALSO 
0000 200: CREATES.” 
0000 201 : 
0000 202 : COMPLETION CODES: 
0000 203: RO = SUCCESS IF ALL ADDRESSEES FOUND SUCCESSFULLY 
0000 204 : = WARNING IF AT LEAST ONE ADDRESSEE FOUND SUCC CESSFULLY, 
9000 305 : = ERROR IF NO ADDRESSEES FOUND OR SYNTAX ERROR IN LIST. 
0000 207 : SIDE EFFECTS: 
0000 208 : IF FAILURE, ERROR IS SIGNALED. 
0000 209 : 
0000 210 :-- 
0000 211 MAIL_ADD_ADDR: ; INTERNAL ROUTINE WHICH IS CALLED 
001¢ 0000 212 “WORD “M<R2,R3,R4> TO RECURSIVELY ADD AN ADDRESS 
0002 213 : (CALLED FROM WITHIN MAIL SADD ADDR ONLY) 
54 OB AD DO 0002 214 MOVL  8(FP),R4 ;GET CALLER rs TPARSE BLOCK 
24 AG «D7 «0006~=«215 DECL § TPA_L.LCOUNT(R4) ‘DECREMENT HE COUNT 
45 14 0009 216 BGTR 60$ ‘BRANCH OF NOT LOOPING 
50 4444 DO 000B 217 MOVL §TPA_L_CNCT(R4),RO [GET CNCT BLOCK ADDRESS 
7E 7C OOOF 218 CLRQ = = (SP) [MAKE NULL DESCRIPTOR 
52. SE DO 0011 219 MOVL _— SP, R2 :SAVE ITS A 
28 AO) 3«(9F «(0014 «= 220 PUSHAB CNCT_Q ADRLST(RO) [STACK ADDRESS OF LISTHEAD 
34 AG OF 0017 201 PUSHAB TPA_G_COGNAM(R4) :STACK USERNAME DESCRIPTOR ADDR 
38 DD OO1A 33 PUSHL R [USE NULL NODE NAME 
52 «DCO TC PUSHL [AND NULL USERNAME 
00000000'EF 04 FB OO1E 24 CALLS a »MAILSADDR_EXISTS [SEE IF ALREADY IN LIST 
450 €8 002 33 BLBS SBRANCH IF YES 
52 4 AQ SE 0028 6 MOVAB TPA_Q_LOGNAM(R4),R :SET USERNAME DESCR ADDR IN R2 
5344 AG 00 b0¢¢ $7 MOVL  TPATL eCNCTCR4) peng? :SET CNCT ADDR IN R3 
042¢ 30 00 6 8 BSBW = CREATE_ENT SCREATE THIS ENTR 
0450 £9 003 9 BLBC OR BRANCH IF FAILED 
10 Al 01s BB C0086 0 BISB2. #AOR_M_NOSEND,ADR_B_FLAGS(R1) ;FLAG NO SEN 
28 ad 9F 003A 1 40$:  PUSHAB TPA_O ONAME(R4) 7STACK ADDRESS OF DESCIRPTOR 
DD 003D 2 PUSHL #1 7 [STACK NUMBER OF ARGUMENTS 
007E808A 4 DD O003F PUSHL #MAIL$ FORWL OOP :FORWARDING LOOP ERROR 
00000000" GF 33 FB 0045 4 CALLS #3,G*LTB$SIG 
50 02 00 004C¢ 5 50$ MOVL ¥#SfS$k TERROR. m ;RETURN ERROR STATUS 
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TO ADDRESSEE LIST -SEP=1984 01:50:06 (CMAIL.SRCJADDRLIST.MAR; 1 
RET 
; 60$: MOVL R4,R3 :SET AB POINTING To prey CNCT 
8 CLRL Ri PRESET UENT 
9 BBC AIF_V_CTRLCFL,MAIL$GL tags; ADD_ADDR BRANCH IF NOT CTRL/C 
49 mov. PMALLS. TONABORT.RO FLAG ABORTED BY CTRL/C 
7g 
43 AT_LIST_ADD_ADDR: 
44 WORD “M<R2,R3,R4> SENTRY FOR DISTRIBUTION LIST RECURSION 
45 CLRL RB :CLEAR PREVIOUS FLAG 
46 MOVL #1,R4 'SET UENT FLAG 
4 BRB ADD_ADDR 
49 -ENTRY MAILSADD_ADDR, = ;ADD ADDRESSEE TO LIST 
50 “M<R2,R3,R4> : (ENTRY MASK) 
51 CLROQ 3 :SET NO PREVIOUS CALL AND NO UENT 
3 ADD_ADDR: 
5 MOVL ADDR(AP),RO “GET ADDRESSEE DESC ADDR 
54 MOVAB <<TPASK > CENGTHO+TPA. C ~EXTRA>(SP), SP ;CREATE TPARSE BLOCK 
55 MOVL S :GET ADDR OF IT 
56 MOVL HTPABK COUNTO. (R2) SET PARAMETER COUNT 
57 MOVL 1, TPASL_PARAM(R2) SUSE PARAMETER FOR STATUS = ASSUME SUCCESS 
58 MOVZWL {Roy TPASL ST RINECNT(R2) :SET SIZE OF ADDRESSEE 
59 MOVL 4 (ROS, TPASC_ STRINGPTR(R2)” “SET ADDR OF ADDRESSEE 
60 TSTL = RB PREVIOUS BLOCK PRESENT? 
61 BEQL «6 5$ TIF EQL NO 
62 MOVL §TPA_L_LCOUNT(R3),TPA_L Léount (Re) 
6 MOVQ § TPA-Q~ONAME(R3),TPA_O_ONAME(R2) 
64 MOVL § TPATL-CNCT(R3), TPA_C_CNCT (Re) 
65 MOVW § TPA"WTUENT(R3) . TPA-W-UENT (Re) 
66 MOVW § TPA-W-FLAGS(R3) ,TPA_@_FLAGS(R2) 
67 MOVL R3.TPA_L_PTPACR2) ;COPY TPARSE BLOCK ADDRESS 
69 5$ MOVL  #10,TPA_L_LCOUNT(R2) :SET LOOP COUNT LIMIT 
70 MOVG TPAS$L_STRINGCNT(R2),TPA_Q ONAME (R2) SET ORIGINAL NAME 
71 CLRL TPA_L_LLNK(R2) ;CLEAR LLNK 
ie CLRQ = TPA-Q"LOGNAM(R2) :CLEAR DESCRIPTOR 
7 MOVL 8 (AP)TTPA_L_CNCT(R2) [SET CNCT BLOCK ADDRESS 
74 CLRL TPA_L_PTPA(R2) :CLEAR PREV TPARSE BLOCK POINTER 
75 CLRL TPATWTUENT(R2) :CLEA ARM ENTER_ADDRS (AND FLAGS) 
76 MOV) R4, TPA W_UENT(R2) 7SET PRESET UERT 
77 7$ CLRQ  =TPA_Q_PNAM(R2) ‘PROTOCOL NAME DESCRIPTOR 
78 CLRQ = TPATQ"UNAME (R2) SCLEAR USERNAME DESCRIPTOR 
79 PUSHL R 
80 CALLS #1,W*CALL_TPARSE 
81 BLBS RO,10$ :BR IF SUCCESS 
8¢ CMPL RO, #MAIL$_CONABORT “ABORT BY “C? 
8 BEQL § ‘BRANCH IF YES 
84 PUSHAL TPASL_TOKENCNT(R2) :SET ADDR aot TOKEN DESCRIPTOR 
85 PUSHL #1 : ONE FAO ARGUMENT 
86 PUSHL #SHR$_S SYNTAX ERROR MESSAGE 
87 CRAs FACILLTY @ a STS$V ig NO> ! STS$K_ERROR 
88 CALLS #3,G*LTBSSIGNA sSIGNAL THE ERROR 
89 ts RET S RETURN 
91 BLBS _ TPASL_PARAM(R2),25$ :BR IF COMPLETE SUCCESS 
92 PUSHL #STS$R_WARNING SASSUME AT LEAST PARTIAL SUCCESS 
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6D 00000000'EF 
00000000 ‘EF 
seen % 
00000000'GF 03 
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T_ROUTINES 
O ADDRESSEE LIST 


S0s: 


CALL_TPARSE : 
. WORD 


TPA_L_CNCT(R2),R 
CNCT @ ADRLST(R1) 


#1 ,MAICSANY_ADDRESSEES 


#STS$K_ERROR, (SP) 
RO 


TPA_L_CNCT(R2) ,R3 
CNCT @ LNKLST(R3) 


#] -ARICSDELETEL INK 


#1 ,MAILSINI_ADDR 
#STS$K_ERROR,RO 


0 
MAILSPRUNW_HANDLER, (FP) 


ADDR_ 
ADDR-STATE 

4 (AP 

#3, G*LIBSTPARSE 


3 o V04-00 
RCJADDRLIST.MAR; 1 


: CTRL/C was typed while attempting connection 


GET CNCT BLOCK ADDRESS 

STACK LOGICAL LINK LIST 

;DELETE ANY OUTSTANDING LINKS 
K ADDRESS 


7ST 
sRE-INITIALIZ 
RETURN ERROR 


;SET KEYWORD TABLE ADDRESS 
SET STATE TABLE ADDRESS 
SET PARAMETER BLOCK ADDRESS 
PARSE ADDRESSEE NAME 
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«~SBTTL ADDRESSEE PARSING STATE TABLE 


+ 


PARSE ''TO:'' LIST AND FILL IN LINK AND ADDRESSEE TABLES 
PARSES LISTS WITH THE FOLLOWING FORMAT: 
ADDRESSEE ,ADDRESSEE,... ADDRESSEE 
WHERE "‘ADDRESSEE'’ HAS THE FOLLOWING FORMAT: 
CNODE1: : JCNODE2::J...CNODEN: : JUSERNAME 
WHERE USERNAME CAN ALSO BE A UIC/PPN FOR RSX/RSTS SYSTEMS. 


LIST CAN ALSO HAVE A ‘‘@FILESPEC'’ AS LAST TOKEN, WHERE 
THE FILE CONTAINS A LIST OF ADDRESSEES. 


INIT STATE ADDR_STATE,ADDR_KEY 
STATE NEXT_ 

TRAN TPAS_LAMBDA,,SET_SPST 
S 
T 


WANNA AINIANANNAIAN NINA NANNANANWNIOI 


BEERS EAN nopopornorenoronor) 


ARSE 
TRAN '!PROTOCOL™ SPEC, STORE _PROTOCOL 
TRAN TPA$_LAMBBA 


EC 
TRAN ‘iCHECKTQUOTE, QUOTED SPEC 
TRAN iGET_SYMBOL,,STORE COGNAME 
TRAN TPASTLAMBDA.FIND_ADDRESSEE 


TRAN !SCAN_ADDR,SPEC_ CONTINUE , STORE _UNAME 
TRAN TPAS _CAMBDA, FIND _ADDRESSEE 


STATE SPEC CONTINUE 
TRAN !CHECK str heat _ADDR,ENTER_ADDR 
TRAN TPA$_LAMB 


WR O OO NAME WIN O OD NA UE WIN OS OO NAME WW 0 OD NOAUES WN OOONOAU ES win 


foto le lel ale lal alee oleae elelelelelelelelelelelelelelelolololelolololelololol el elelele olelelelelelelale sla a] 
SNA AAA AAA AA AMM UU 


ee eee eee a rr ar rer 
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$ 
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$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
bie ‘NODE 1_SP 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
£ 
EXT 
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$ 
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$ 
$ 
$ 
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: FIND N ADDRESSEE AFTER SAD USERNAME AND REPORT ERROR ON THIS ONE 
; EXIT WITH TPAS_EXIT BECAUSE MESSAGE WILL HAVE BEEN ISSUED ALREADY 
STATE FIND_AD S ra 
74 TRAN TPA$_EOS 
75 TRAN ‘!° 
7 TRAN COMMA 
7 TRAN ‘+' 
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STRAN TPAS_ANY,FIND_ADDRESSEE 


SSTATE 

STRAN TPAS_LAMBDA, TPAS_EXIT,REPORT_SYNTAX_ERROR 
SSTATE SCAN 
$TRAN PROTOCOL SPEC gSCAN ADDR 
$TRAN E_SPEC,S ADDR 
$TRAN iUSERT SPEC, tba EXIT 
STRAN TPAS$ _CAMBDA, TPAS_EXIT 


eae 
2D 


: DISTRIBUTION LIST PARSING 


SSTATE DIST_PARSE 
STRAN TPAS_ FILESPEC, NEXT_ADDR,GET_DIST_LIST 


! QUOTED DISTRIBUTION LIST PARSING 
SSTATE QD1ST_PARSE 


DOOOOOOOOOOWDWWOOMODdM@a@~ TY W-4 
OOWONAUE WN OVONAOUS WO Oo 
o 


E 

E 

; 

3 

3 STRAN !QFILE_SPEC,TPAS_EXIT,GET_DIST_LIST 
3 401 $STATE QFILE SPEC 

; 40 STRAN '!NOT_GEOS,QFILE_SPEC 

40 STRAN TPAS~LAMBDA, TPAS_EXIT 

3 NOT_GEOS 

3 405 $TRAN. '""" 

; 406 $TRAN TPAS_ANY, TPAS_EXIT 

3 
3 
3 
3 
3 
| 


STRAN TPA$_EOS,TPAS_FAIL 
STRAN TPAS_ANY,TPAS_EXIT 


; NODE SPECIFICATION SUB-EXPRESSION PARSING 


SSTATE NODE1_SPEC sFIRST NODENAME PARSING 
STRAN '!GET “SYRBOL. NODE_SPECC, STORE_LOGNAME 
$STATE NODE ~ SPEC :NODENAME PARSING 
SSTATE NODE ~SPECC :NODENAME CONTINUATION PARSING 
STRAN ‘ACCESS _LIST 
STRAN TPAS$_LAMBDA 
AN at iy 
":" TPAS_EXIT 
$STATE A CCESS_LIST ;DECNET ACCESS LIST PARSING 
SSTATE ACCESS_SCAN 
STRAN ''"' TPAS_EXIT 
STRAN TPag. ANY>ACCESS_SCAN 
: USERNAME/PPN SPECIFICATION SUB-EXPRESSION PARSING 


SSTATE USER_SPEC USERNAME SPEC PARSING 
STRAN !GET_SYMBOL,TPAS_EXIT 


Ok a a ed tk td td ot tt 8 tt tt 8  eeE—=EN 
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MAILSADDRLIST ADDRESSEE LIST ROUTINES 16-SEP-1984 00:43:35 VAX/VMS Macro V04-00 Page 
v04-000 ADDRESSEE PARSING STATE TABLE eee 0 83:8 MAIL.SRCJADDRLIST.MAR; 1 ° 
1 435 STRAN 'C' 
1 4 : STRAN '(' 
1 4 STRAN ''""* QUSER_SPEC 
1 4 8 SSTATE :UIC/PPN USERSNAME SPEC PARSING 
13 4 STRAN TPAS_DECIMAL 
1 440 SSTATE 
153441 STRAN COMMA 
15 44g SSTATE 
15344 STRAN TPAS_DECIMAL 
153 444 SSTATE 
153 445 STRAN ')', TPAS_EXIT 
O13 446 STRAN ')' TPASTEXIT 
0153 448 SSTATE QUSER_SPEC ZQUOTED USERNAME S°EC PARSING 
0153 9449 STRAN '' TRAS EXIT 
O19 430 STRAN TPA$_ANY{GUSER_SPEC 
015 43¢ SSTATE QUOTED SPEC 
15 433 STRAN !USER_SPEC,SPEC_CONTINUE,STORE_LOGNAME 
0153 455 ; 
0153 456 : PROTOCOL NAME PARSING 
0153 457; 
0153 «458 SSTATE PROTOCOL_SPEC 
0153 459 STRAN '!GET_SYMBOL 
0153 460 
0153 = 461 SSTATE 
0153 46¢ STRAN '"'* QPROT SPEC 
0133 463 STRAN '%' TPAS_EXIT 
0153 465 SSTATE QPROT_SPEC 
0153 466 $TRAN. '"" 
0153 467 STRAN TPAS_ANY,QPROT_SPEC 
0193 468 
0153 9469 SSTATE 
0138 470 STRAN ‘%', TPAS_EXIT 
0153 Are : SYMBOL PARSING 
0153 «473: 
0153 947% SSTATE GET_SYMBOL 
0153 «475 $TRAN re SGETSYAL 
0153 «476 STRAN '=" GETSYM1 
0153 477 STRAN TPAg’ SYMBOL ,GETSYM1 
13 478 STRAN TPAS"LAMBDA, TPAS_FAIL 
153 480 SSTATE GETSYM1 
153 481 STRAN '°.',GETSYM1 
015 48¢ STRAN ‘=" GETSYM1 
15348 STRAN TPAS_SYMBOL,GETSYM1 
13 4 4 STRAN TPASTLAMBDA.TPAS_EXIT 
153 486; 
O15 4 $ ; CHECK THAT NEXT CHARACTER IS LEGAL ADDRESSEE TERMINATOR 
12 4 3 SSTATE CHECK_S 
i? 4 STRAN !LEGAC_ FP. TPAS_EXIT 


MAILSADDRLIST ADDRESSEE LIST ROUTINES Ig-SEB-1984 00:43:35 VAX/VMS Macro V04-00 Page 1 
v04- ADDRESSEE PARSING STATE TABLE -SEP-1984 01:50:06 (CMAIL.SRCJADDRLIST.MAR; 1 ( 
4 SSTATE LEGAL SEP 
4 $TRAN bE GAL SEP1,TPAS_FAIL 
4 STRAN TPAS_LAMBDA, TPAS-EXIT 
4 SSTATE LEGAL_SEP1 
3 4 STRAN TPAS EOS, TPAS_FAIL 
STRAN '!" TPAS FAIL 
5 STRAN COMMA, TPAS_FAIL 
3 STRAN +", TPAS_FRIL 
STRAN CH_SPACE;TPAS_FAIL 
5 $STRAN CH-TAB, TPAS_FAIL 
3 $STRAN TPAS_LAMBDATTPAS_EXIT 


Check to see if the next character is a quote 


$STATE CHECK QUOTE 
STRAN  !QUOTE_SPEC, TPAS_EXIT 


| 
| 
} 
SSTATE QUOTE_SPEC 
$TRAN !SPEC"QUOTE, TPAS_FAIL 
STRAN TPA$_CAMBDA,TPAS_EXIT 
SSTATE SPEC_QUOTE | 
$STRAN *'* TPAS FAIL 
STRAN TPA$_LAMBDA, TPAS_EXIT | 
| 
} 
| 
| 
| 
| 
| 
| 


SEND_STATE 
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-PSECT S$CODE$,LONG,RD,NOWRT ,EXE 


DPUPVWIVWPVPVLVSIUSUSVSUSUSUSUSISIST SISSIES 


~m 


—_——— 


8 
R T ROUTINES 16-SEP-1984 00:43:35 VAX/VMS Macro v04-00 Page 1 
+ be > al STORE PROTOCOL - RTORE PROTOCOL NAME IN Set 7 EEL MAIL.SRCJADDRLIST.MAR;1 6) S 
1 Fr ~SBTTL STORE_PROTOCOL = STORE PROTOCOL NAME IN TPA BLOCK EXTENSION | ' 
i g "ROUTINE CALLED BY TPARSE TO STORE THE PROTOCOL NAME | : 
ee ea) 
0000 91 Pesmeea tgp °° yet | 6 
: PA_Q_PNAM(AP) :COPY PROTOCOL NAME Gt 
3c AC 10 aC 70 135 4 mova ig $L 7 bli TPA, COPY PROTOCOL NAME | G 
04 13 6 RET | 
15€ 8 ;++ 
: ROUTINE STORES THE ADDRESS OF THE START OF A USER SPEC 
Stee Ht : AND CLEARS Fu DESCRIPTORS IN THE TPARSE EXTENSION BLOCK 
Stee 4g : - DEBUG SET_SPST 
aon IEE HE 7-25 saan 9 | 
¥ PTR(AP) ,TPA_L SPSTCAP) : SAVE START 
cca gear BD BiG $45 HOWL Teast. stinger LeSERTCAPDESAVE START, | 
34 AC 3624 «(0168 «= 547 CLRL §_ TPA~Q~ LOGNAM(AP) CL EAR LOGNAM DESCRIPTOR 
50 AC 604 «(0168 S548 CLRL - TPA~Q"UNAME (AP) [CLEAR USERNAME DESCRIPTOR | 
oe te era | 
016F 351 : THIS TPARSE ACTION ROUTINE REPORTS A SYNTAX ERROR. 
Oiler 83° DEBUG REPORT _SYNTAX_ERROR | 
cogg flee $95 MPmnr.siup.ent | 
p TP PST(AP) FORM A DESCRIPTOR | 
7E 14 ac’ $e es $8 228 SuBLS (SPTCTPASL TOKENPTR(AP), (SP) COMPUTE LENGTH, OF STRING 
oe be 198 238 PNEL ($5) [COUNT THE ILLEGAL TERMINATOR TOO | 
08 tf 03 iP $60 10$: Pere FPASL_STRINGCNT (AP) :DID WE We ES HERE AT END OF STRING? 
oe b? ig 86 pect ae : NO-CDON® PRINT THE TERMINATOR | 
gf DD 186 64 20$: PUSHL SP STACK | AopRess OF DESCRIPTOR 
007E10FA SF DD 18, 566 PUSHE BSHRS,SYNTAK! HALLS, racititvastssv. FAC_NO>! STS$K_ERROR> 
eee 8 00 50 199 $68 hour’ ast ss, WARNING, TPASL_PARAM(AP) ;SET WARNING STATUS | 
0 01 oO 0198 MOVL oR 
RES | Bt 
Stor 72 : THIS TPARSE ACTION ROUTINE STORES THE USERNAME IN TPASL_TOKENCNT/TOKENPTR 
19F 73 : INTO THE TPARSE BLOCK EXTENSION 
19F 7 STORE _UNAME : | 
50 AC 10 AC a) tag i ova TPASL_TOKENCNT (AP) , TPA_Q_UNAME (AP) | 
| 
147 $78 ; THIS TPARSE ACTION ROUTINE STORES THE LOGICAL NAME IN TPASL_TOKENCNT/TOKENPTR 
1A7 Hy : INTO THE TPARSE BLOCK EXTENSION | 
1A7 2: | 


it 3 
MAILSADDRLIST ADDRESSEE LIST ROUTINES 1g73E0= 138% 00:93:39 AX/VMS Macro V04-00 Page 13 " 
v04-000 STORE_PROTOCOL = STORE PROTOCOL NAME IN -SEP-1984 50:06 (CMAIL.SRCJADDRLIST.MAR;1 (5) S 
1A7 3 ye. a] 
1A7 4 | m 
1A 5 ASSUME TPASL_TOKENPTR EQ TPASL_TOKENCNT+4 z 
1A7 ; STORE_LOGNAME : M 
0090 1A7 3 .WOR M 
34 AC 10 AC 7D O1A9 MOVQ TPASL_TOKENCNT(AP), TPA_Q_LOGNAM(AP) ;COPY DESCRIPTOR m 
04 1s ay = RET 2 
a 38 ; THIS ROUTINE RESETS TPA_L_LCOUNT WHEN A NEW ADDRESSEE IS ENCOUNTERED . 
1AF 94 :-- M 
1AF 95 al 
1AF 38 RESET_LCOUNT: M 
51 5C 00 O1AF 9 MOVL AP,R1 3GET PTR TO TPARSE BLOCK M 
gh Al pA 4 1B2 598 10$: OVL #16 TPA_L_LCOUNT(R1) ;RESET LOOP COUNT M 
A Al 1 A 1B6 599 BICB2 #TPA M_ TERMINAL TPA_W_FLAGS(R1) ;RESET TERMINAL Be dae FLAG M 
51 48 Al OD O1BA 600 MOVL TPA_C_PTPA(R1),R1 :GO UP AND GET THEM 4 
F2 1 1e 601 BNEQ 10$ M 
0 pie o0¢ RSB mM 
1C1 603 ;++ 4 
pie! one 3; ALREADY_IN_LIST = See if addressee already in list a 
01C1 606 ; Inputs: 4) 
01C1 607 ; N. 
01C1 608 ; AP = pointer to tparse arg block N 
01C1 609; N 
01C1 610 ; outputs: N 
01C1 611; , N 
Bie} org : true if already entered, false if not : 
gies ei% : notettthis routine is bsbw'd to to save code space : 
01C1 616 ALREADY_IN LIST: Ni 
50 44 AC DO 01C1 617 MOUL TPA_L_CNCTC(AP) ,RO 3GET CNCT BLOCK ADDRESS Ni 
28 AO OF 01C5 618 PUSHAB CNCT_G ADRLST (RO) ;STACK ADDRESS OF erty thet LISTHEAD Ni 
50 AC 9F O01C8 619 PUSHAB TPA_G_ONAME (AP) : TACK USERNAME DESCRIPT ADDR Ni 
34 AC 9F O1CB 630 PUSHAB TPA -  LOGNAM (AP) ;STACK NODENAME D ADD Ni 
3c ac 9F OICE 621 PUSHAB TPA Q”PNAM(AP) sSTACK PROTOCOL DESCR ADDR P 
OO000000'EF 04 FB 0O1D1 ose CALLS #4 MMATLSADDR. EXISTS ;SEE IF EXISTS IN ADDRESSEE LIST Q 
05 0108 62 RSB ;RETURN WITH RESULT IN RO Q 
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RESSEE IN ADDRESSE 5-SEP-1984 1:80:08 MAIL.SRCJADDRLIST.MAR; 1 née ( 
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OL TRANSLATES THE TRANSLATION 1S PREFIX THE REST OF THE 
TRING (IF ANYS AND PARSER IS RECURS! 
EE SPEC AND ENTER THE RESULT IN THE ADDR 


OL DOESN'T TRANSLATE, AND IT'S A USERNAM 
VMSMAIL.DAT TO SEE If IT 1S FORWARDED. 

G ADDRESS AND CALL THE PARSER RECURSIVELY 
ADDRESSEE SPEC. 
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F THE SYMBOL 
AND IT'S VERIFIED BY LOOKING FO 
LE RECORD. 


THEN ENTERED INTO ine ADDRESSEE LIST FOR LATER USE 
ACTUALLY TO BE SENT 


IT MUST BE A 
AUTHORIZATIO 
THE ADDRESSE 
WHEN THE MAI 
INPUTS: 
TPA_Q_LOGNAM(AP) = NODENAME/USERNAME LOGICAL NAME DESCRIPTOR 
IF TPA_Q_LOGNAM(AP) IS A NODE NAME: 
TPA_Q_UNAME(AP) = DESCRIPTOR OF ADDRESSEE NAME 
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OUTPUTS: 
ADDRESSEE LIST ENTRY CREATED AND ENTERED INTO ADDRESSEE LIST. 


665 CASE_BLIND: 

66 .LONG LNMSM_CASE_BLIND 

667 ENTER_ADOR: ENTER ADDRESSEE IN LIST 
66 “WORD “M<R2,R3,R4.R5.R6.R7-RB>: CENTRY MASK) 

iNCW § TPA_W_UENT(AP)- : COUN T ANOTHER TIME THROUGH 
MOVAQ TPA~Q™LOGNAM(AP) ADDR OF LOGICAL NAME DESC 
BBS #TPK_O_TERMINAL, Bi W “FUG UP) 4$ ;BRANCH IF PREVIOUSLY TERMINAL 
7)7#*A" s1S IT PRE FIXED WITH UNDERSCORE? 


66 


P 


oa 
o 
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02000000 


tt mew 1 


R 
:BR IF NOT 
) :REMOVE UNDERSCORE FROM COUNT 
7) FROM ADDRESS OF LOGICAL NAME 
CK_ADDR SKIP TRANSLATION 


E IF NODENAME/USERNAME IS PREFIXED WITH A QUOTE IF SO 
RIP QUOTES FROM FIRST AND LAST POSITIONS IN STRING 


1$: CMPB @4(R7) ,#*A/"'/ :1S IT PREFIXED WITH A QUOTE 


Oo 
=z 
J 
_— 
=z 
i) 


Ee Fe J ae | ae ne |e we | we ne ae we we we we ee) ee ae ew we ww fan law lol w lo lolalolelslolelololeleleloleleleleleleolelolel ole ololol ow) 
eed ed od od = 8d 3 = 3 8 8 2 = SS 2 6 = — 2 2 I 2 = I 
RHR HHHMHHMMMMOOCOOVVTVTVTVOVOVTVVOVV VV VVVVCVVVVVVCVVCVCVVVCVTVCVVVTC0C0"0"00"0 
PP} PP NHLNMODW AM NOS OOOOOOOOOOOOOOOOOOOOOOOODOOOVODOOOODOOOOOOOOOO 


—OOONAULS WN OOONAUE 


PAEAAAAAAAA AAO 
OO NNN NNO 


22 0487 91 


N 3 


| 
MAILSADDRLIST ADDRESSEE LIST ROUTINES 16-SEP-1984 00:4 AX/VMS Macro V04-00 Page 15 
v04=000 ENTER_ADDR = ENTER ADDRESSEE IN ADDRESSE g-8e EP=1 1982 88 ‘83: 3 MAIL. SRCJADDRLIST.MAR; 1 - 
1 1FE 6 BNE :NO, THEN BRANCH 
67 03 AS 6 eas yeu? i, R7) REMOVE QUOTES FROM COUNT 
04 A? OD ; 6 4 INCL ‘SKIP OVER FIRST QUOTE 
6 6 5 > SEE IF NODENAME/USERNAME TRANSLATES AS A LOGICAL NAME. IF IT IS, USE 
06 6 ti TRANSLATION AND RECURSIVELY CALL ADD_ADDR. | 
SE sFFO ce 9E 0206 689 5s: MOVAB -LNMSC_NAMLENGTH(SP),SP;CREATE TRANSLATION BUF FER 
— DD 0208 690 PUSHL jCREATE BUFFER DESCRIPT 
7E SOF F gr 9A 0200 691 MOVZBL #LNMSC_NAMLENGTH,-(SP) 
56 SE DO 0211 69¢ MOVL  SP,R6~ GET ADDRESS OF DESC 
7E D4 0214 69 CLRL 30s = §P) CREATE LONGWORD TO GET ATTRIBUTES 
55 SE 00 0216 694 MOVL SP, R5 :SAVE THE ADDRESS 
7E 04 0219 695 CLRL 3s = (§P) ; CREATE TRNLNM ITEM LIST 
7E 04 0218 696 CLRL = = (SP) ; NO RETURN ADDRESS 
55 DD 021D 697 PUSHL 5 ADDRESS TO RETURN ATTRIBUTES 
00030004 ef DD O21F 698 PUSHL #<LNMS_ATTRIBUTES@16>!4 i STACK QUFEER LENGTH AND ITEM 
6 DD 0225 699 PUSHL R6 : RETU N LENGTH A ADDRESS 
04 A6 DD 0227 700 USHL 3 BUFFER A DRESS 
50 66 3C O22A 701 MOVZWL (R6),RO GET SUFFER LENGTH 
7E 50 00020000 8F C1 0220 108 ADDL3  #<LNMS_STRING@16>,R0, -(sh) SFINISH ITEM LIST 
51 SE DO 0235 70 MOVL PLR SAVE ADDRESS 
0238 704 STRNLNM_S ATTR=CASE_B 
0238 705 TABNAM= mAILSSD. CNM. FILE_DEV,=- 
0238 706 LOGNAM=(R7), 
0238 707 TIM ST= (R1)° 
7150 €9 O24E 708 BLBC. —-RO, 208 :BR IF FAILURE 
50 3C AC SO AC AD 0251 709 BISW3 TPA_Q_UNAME(AP), TPA_Q =PNAMCAP) . RO iWAS THERE MORE THAN USERNAM? 
0B 12 0257 710 BNEQ NCH IF 
65 0200 8F B83 0259 711 BITW § #LNMSM_TERMINAL, (RS) "NO=-WAS THIS TERMINAL? 
04 13 025€ fle BEQL QL N 
SAAC 01 88 0260 71 BISB2 #TPA_M_TERMINAL, TPA.v.FLAG&«APD -YES==-FLAG FOR NEXT TIME 
56 «DD «(0264 «714 6$ PUSHL R6 : STACK ADDRESS OF DESCRIPTOR 
00000000'eF 01 FB 0266 715 CALLS #1,MAILSUPCASE_Q [MAKE SURE IT’S UPPER CASE 
50 SO AC 66 cI 026D 716 7$ ADDL3 (R6),TPA_Q UNARE (AP) , RO : COMPUTE SIZE OF NEW ADDRESSEE 
51 3C AC «63C «(0272 «717 MOVZWL TPA_G_PNAMTAP) ,R [GET PROTOCOL SIZE 
05 13 0276 718 BEQL 7187 ‘BRANCH IF NONE 
50 51 cd 0278 719 ADDL2 R1,R0 SINCLUDE PROTOCOL SIZE 
50 06 0278 720 INCL RO ; AND ALLOW DELIMITER (%) 
SE 50 «C2 9270 rel 71$:  SUBL _—s«RO, SP [CREATE NEW ADDRESSEE BUFFER 
5E DD «(0280 «67 : PUSHL SP ; CREATE BUFFER DESCRIPTOR 
50 «DD Oo8e 7 PUSHL RO 
53 04 AE DO 4 726 MOVL 4(SP),R3 iGET BUFFER ADDRESS 
3C AC 8 88 725 TSTW  TPA_Q’ PNAM(AP) ;PROTOCOL SPECIFIED? | 
09 B 726 BEQL 75$7 a’ 
3C AC 28 028D 727 MOVC - TPA_Q_PNAM(AP),- ‘COPY PROTOCOL SPEC FIRST 
63 40 BC 0290 728 @TPA_G_PNAM+4 (AP) , (R3) 
83 25 90 0293 729 MOVB =: #*A/2/7(R3) + ;STORE DELIMITER 
63 0486 66 38 296 730. 75$: MOVC  (R6),a@4(R6),(R3) ‘MOVE TRANSLATION TO BUFFER 
50 AC 28 0298 «731 MOVC - TPA_Q_UNAME(AP) ,- ;MOVE REST OF OLD ADDRESSEE TO BUFFER 
63 34 BC 96 7 : atPx O UNARE +4 (AP) (R3) 
0 AC 85 Al 7? TSTw  TPAG NONAMECA AP) ZNODENAME SPECIFIED ALSO? 
05 1 AG 734 BEQL 7687 L NO, LOGNAM ALREADY SET UP 
34 AC SO AC 7D 0206 735 MOV = TPA_Q_UNAME(AP) , TPA_Q LOBNAM (AB) sPOSITION USERNAME dese 
28 AC 434 AC 7D O2AB 736 76$:  #MOVQ TPATQ“LOGNAM(APS,TPA_G_ONAME(AP) :AND SET ORIGINAL NAME 
SE DD 0280 737 PUSHL SP ~ wee ADDRESS OF ADDRESSEE "Des C 
FD49 CF «001s«dFBSCOO2B2.~—és738 CALLS #1,MAIL_ADD_ADDR [ADD NEW ADDRESSEE TO LIST | 
| 
| 
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ESSEE LIST ROUTINES 16-SEP-1984 00:43:35 VAX/VMS Macro v04-00 Page 
R_ADDR = ENTER ADDRESSEE IN ADDRESSE -SEP=1984 01:50:06 MAIL.SRCJADDRLIST.MAR;1 
B7? 739 BLBS R0,10$ 7BR IF SUCCESS 
BA 740 8$: MOVL RO, TPASL_PARAM(AP) ;SAVE STATUS 
BE 741 MOVL #1.RO SALWAYS SET SUCCESS 
0 C1 14g 10$: RET : 
8 C 744 ; SEE IF USERNAME EXISTS IN SYSSSYSTEM:VMSMAIL.DAT, AND IF SO, 
0 : ot? ; FEED FORWARDING ADDRESS BACK INTO MAIL_ADD_ADDR 
50 3c AC 50 AC AJ O02C 747 20$: BISW3 TPA_Q_UNAME CAP) ,TPA_Q_PNAM(AP),RO ;WAS THIS A NODE NAME? 
02¢ 748 :(OR A PROTOCOL? 
25 12 02C8 749 EQ CHECK_ADDR sIF NEQ YES. DON'T BOTHER LOOKING 
08 ag SF OQO2CA 750 PUSHAB 8(SP) * STACK OUTPUT BUFFER ADDR 
6 SF O2CD 751 PUSHAB (R7) sSTACK DESCRIPTOR FOR NAME 
0000'CF 02 FB O2CF O36 CALLS Sao BALL OCHECK. FORW sSEE IF USER IS FORWARDING 
18 50 E9 0204 75 LBC RO,CHECK_ADDR ;BRANCH IF NO FORWARDING 
66 4B AE 9A 0207 754 MOVZBL VMD_B_FW BLNG+8(S (R6) ;SETUP DESCRIPTOR FOR NEW ue NATION 
04 A6 4C AE 9E O02DB 755 OVA VMD- T -FUDNANSB( SP), *4(R6): (ASSUME R6 STILL POINTS A FFER) 
8B 11 O2E0 756 RB 7$ ~ ‘PROCESS NEW DESTINATION 
O2E2 757 -ENABLE LOCAL_BLOCK 
O2E2 758 CHECK_PROT: 
50 AC BS O02E2 759 TSTwW TPA_Q_UNAME (AP) _ NODENAME ALSO SPECIFIED? 
51 12 O2E5 760 BNEQ F NEQ YES 
50 AC 67 7D O2E7 761 MOVQ (R7), TPA_Q_UNAME (AP) NO, SET USERNAME 
67 D4 O2EB 76 CLRL (R7) AND ey NODENAME LENGTH 
49 11 O2ED 76 BRB 8$ CONTINUE 
OcEF 764; 
O2EF 765 ; CHECK IF ADDRESSEE EXISTS 
O2EF 766: 
O2EF 767 CHECK_ADDR: $ 
53 44 AC DO O2EF 768 MOVL TPA_L_CNCT (AP) ,R3 :GET CNCT BLOCK ADDRESS 
3c AC BS O2F3 769 TSTW TPA-Q” con P) ‘PROTOCOL SPECIFIED? 
EA 12 O2F6 770 BNEQ CHECK_ PROT sIF NEQ YES 
50 AC BS O2F8 771 TSTW TPA_Q “UNAME (AP) ‘WAS ice SPECIFIED? 
06 12 O2FB 772 BNEQ 5$ 7 SIF NEQ 
00c5 31 O2FD 773 BRW 10$ :NO--GO HANDLE LOCAL USER 
00cBSOéC31 0300 ae 1$: BRW 15$ ‘BRANCH AID 
0303 776 ; IF DESTINATION NODE IS SAME AS OUR NODE, THEN IGNORE AND SEND 
b308 oe 3; REST OF ADDRESSEE NAME BACK INTO ADD ADDR 
51 00000000" EF 9E 0303 779 S$: MOVAB MAIL$Q_SYSNO sPOINT TO OUR NODE NAME DESCRIPTOR 
04 B1 61 00 04 B7 67 2D 030A 780 CMPCS (R7),a%(R7), Ay Ry. a4(Ri); ;DEST. NODE SAME AS OUR NODE? 
18 12 0312 781 BNEQ CH IF NOT 
7E 50 AC 7D bate ree 6$: MOVa TPA_Q_UNAME (AP) ,=(SP) SYES==STACK DESCRIPTOR OF ADDRESSEE 
5E DD 0318 7 PUSHL SP ~ “STA CK ADDRESS OF DESCRIPTO 
34 AC 50 AC 7D O31A 784 TPA_Q_UNAME (AP) , TPA_Q _LOGNAM(AP) >SET IN CA 4 FORWARD ERROR 
28 AC 50 ac 7D O31F 785 MOVQ TPA_Q-UNAME (AP), TPA_ Q ~ONAME (AP) SET ORIGINA 
FCD7 CF 01 FB 0324 786 CALLS #1,RMATL ADD_ ADDR sRECURSE TO PEEL OFF NEXT NODE NAME 
00C8 31 0329 787 BRW 20$ [GO RETURN 
57 DD 032C re 7$: PUSHL R7 sSTACK NODE DESCRIPTOR ADDRESS 
00000000'EF 01 FB O3¢8 789 CALLS #1,MAILSCHK_CLUNODES  ;SEE IF SENDING TO NODE IN OUR CLUSTER 
oc 50 Be 03 790 BLBS RO. 6$ sBRANCH IF YES 
FE86 «630 «0338 «= 791 BS: Bow Peet 7SEE_ IF THIS ONE ALREADY ENTERED 
3 50 E8 $90 6 $ RO,1$ sIF SO, ALL DONE 
AC DF 33E 79 PUSHAL TPA _L_LLNK (AP) SET ADDRESS OF RETURN ADDRESS BUFFER 
53 44 ag D0 ee 794 VL TPA” tnChCT CAP), R3 sREFETCH CNCT BLOCK BECAUSE OF CMPC 
5 DOD 45 795 PUSHL | sSTACK CNCT BLOCK ADDRESS 
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v04-000 ENTER_ADDR = ENTER ADDRESSEE IN ADDRESSE 5-SEP-1984 01:50:06 [MAIL.SRC ADDRLIST. MAR; 1 (6) | 
67 7F 47 796 PUSHAQ (R7) ;SET ADDRESS OF NODENAME DESCRIPTOR ; 
3C AC 7F 49 79 PUSHAQ TPA_Q sSTACK PROTOCOL NAME ADD : 
O0000000'EF 04 FB 4¢ 798 CALLS #4 MARTE SCREATELINK :CREATE A LOGICAL LINK TO THE NODE ; 
950 €9 0353 799 BLBC :BRANCH IF FAILURE F 
52 30 AC DO 0356 800 MOVL PA L_LLNK (AP) ,R2 GET THE LNK BLOCK ADDRESS ; 
30 2E A2. 0 EQ O35A 01 BBS LNR_V_A ALTF AM _B_FLAGS(R2),81$ ;BRANCH IF ALTERNATE PROTOCOL ; 
3C AC BS 0 SF 80¢ TSTW i _PNA :NO=-WAS PROTOCOL SPECIFIED? : 
28 O13 0362 803 BEQL = «4B 1$ :IF EQL NO | : 
0364 805 ; SPECIAL ‘‘SNODNAME::''TASK="' CONNECTION. WE MUST RECOMBINE THE NODE : 
0364 806 ; AND USERNAME | : 
SE FFOI CE 9€ beer 808 MOVAB =LNMSC_NAMLENGTH(SP),SP ;ALLOCATE A BUFFER | : 
58 SE dO 0369 809 MOVL  SP,R sSAVE ITS ADDRESS | : 
3¢ 6B «O036C~— B10 PUSHR #*M<R2,R3,R4,R5> SSAVE SOME REGISTERS ; 
68 0487 67 28 0366 811 MOVC3 (R7),@4(R7), (RB) ‘COPY THE NODE NAME ; 
67 BS 037 B12 TSTW (R7) [WAS THERE A NODE NAME? ; 
05 13 0375 81 BEQL 801$ iT afct ; 
83 3A3A BF BO 0377 B14 MOVW = #*A/::/,(R3)+ SINATE THE NODE NAME ; 
63 54 8C 50 AC 28 O37C 815 801$: MOVC3 TPA Q_UNAME (AP). aTPA_Q _UNAME-S4 CAPS, ) ;AND THE USERNAME : 
50 AC 53 «6558 ) «= C3- (0382) B16 SUBL3 R8,R3,TPA_G_UNAME( (apy :CREATE NEW DESCRIPTOR OF USERNAME : 
54 AC 58 DO 0387 817 OVL R8,TPA_Q_ ONAME* 4 ( ; 
67 7C 0388 818 CLRO R?) ;AND CLEAR THE NOBENAME ; 
3¢ «896A 038D 819 POPR #*M<R2,R3,R4 SRESTORE REGIST 3 
08 AS «(OF O38F 820 81S: PUSHAB CNCT_Q oP aoe eee cR3) :STACK ADDR OF FROM DESCRIPTOR ; 
30 AC DD O33¢ 821 PUSHL TPA_C_CLNK(AP) sSTACK LOGICAL LINK ENTRY : 
Q0O0000000'EF 02 FB 0395 822 CALLS #2, RATLSNET _FROM [SEND "FROM STRING ; 
1050 €9 039C 823 BLBC RO, 9$ ‘BRANCH IF FAILURE : 
50 AC DF O39F 824 PUSHAL TPA_Q_UNAME (AP) :SET ADDRESS OF ADDRESSEE DESC : 
30 AC DD O3A2 825 PUSHL TPAWL~LLNK(AP) ;SET ADDRESS OF LOGICAL LINK ENTRY : 
Q0000000'EF 02 FB O3A5 826 CALLS #2,MATLSNET ADDR :CHECK IF ADDRESSEE EXISTS : 
77 50 £8 O3AC 827 BLBS § RO, CREATE_ADDR :BR IF SUCCESS 3 
50 DD O3AF 828 9S PUSHL RO ‘SAVE ERROR CODE : 
52 SO AC 9E 0381 829 MOVAB TPA_Q_UNAME(AP),R2 :GET USERNAME DESCR ADDR : 
00A7 30 0385 8830 BSBW  CREATE_ENTRY sALLOCATE USERNAME BLOCK | : 
0450 €9 0388 831 BLBC —RO, ‘BRANCH IF ERRO | : 
1c 41 01 88 0388 832 BISB2 #ADR_M_NOSEND,ADR_B_ FLAGS(R1) sSET NOSEND TO THIS USER : 
50 8EDO O3BF 833 .91$:  POPL RO ;RESTORE ERROR CODE | 3 
002F 31 O3¢@ 834 92$: BRW 20$ : : 
| e 
50 AC 67 7D O3C5 836 10$: mova (R7) , TPA_Q_UNAME (AP) sMOVE USERNAME DESC TO COMMON DESC | : 
67 7C 03C9 837 CLRQ (R7) [CLEAR NODE N : 
FOF3 30 O3¢B 838 BSBW ALREADY IN_LIST 7SEE IF ALREADY ENTERED : 
27 50 £8 O3¢E 839 15$ BLBS RO sIF SO, ALL DONE : 
0 AC 04 O03D1 840 CLRL TPAC LNK (AP) SLOCAL ADDRESSEE : 
50 AC} «6(7F «6(03D4~— B41 PUSHAQ TPA “5 ~tNAME (AP) :SET ADDRESS OF USERNAME DESC : 
00G00000'EF 01 FB 0307 Bae CALLS #1,MATLSGET_USER :CHECK IF USER EXISTS ; 
13 50 €9 O3DE 84 BLBC =o :BRANCH IF USER DOES NOT EXIST : 
50 QO000000'EF DO 0361 B44 MOVL  MAILS$T UAE BUFF ,RO :GET BUFFER ADDRESS | : 
00000000'8F £0 O3E8 845 BBS #UAF SV~ IL “BRANCH IF MAIL DISABLED : 
0A 0000'CO O3EE 846 NOAFSL “FLAGS(RO), $0$ : 
32, «11 O3Fe 47 i BRB CREATE_ADDR SNOW ENTER IN ADDRESSEE LIST : 
20 ac 4650 =o nie 849 MOVL RO, TPASL_PARAM(AP) :SAVE FAILURE STATUS : 
50 01 DO O3F8 850 25$: MOVL #1,R0 :SET SUCCESS TO CONTINUE PARSE : 
04 Oare Bae wh ; 


| MAILSADDRLIST ADDRESSEE LIST ROUTINES =SEP- 1984 00:43 +35 VAX/ VMS Macro V04-00 Page 18 
v04-000 ENTER_ADDR - ENTER ADDRESSEE IN ADRESSE | =SEP=-1984 MAIL. SRCJADDRLIST.MAR; 1 (6) 
0 FC 53 ; USER IS DISABLED FROM RECEIVING MAIL : 
50 AC OF O3FC 855 30S: — PUSHAB TPA_Q_UNAME (AP) :STACK ADDRESS OF alin DESCRIPTOR : 
gi DD O3FF 36 PUSHL #1 ~ STACK COUNT OF A 3 
007E8082 BF DD 0401 85 PUSHL HHAILS USERDSABL ‘SIGNAL THAT USER” CANNOT RECEIVE MAIL : 
00000009" GF 03 ~=FB 0407 38 CALLS #3,G*LIBS$SIGNAL | : 
52. 50. AC 3 40 5 MOVAB tPke Q_UNAME (AP) ,R2 :GET USERNAME DESCR ADDR | ; 
004A 30 041 60 BSBW  CREATE_ENTRY SALLOCATE USERNAME BLOCK | 3 
0450 £9 041 61 BLBC *BRANCH IF ERROR | : 
1¢ Al 01s « BB CéG 18 6¢ BISB2 #ADR_M_NOSEND,ADR_B B_FLAGS(RI) : SET NOSEND TO THIS USER | ; 
50 007E8082 8F bo O4i¢ 863 35$: MOVL PMAICS- “USERDSABL ,RO™ SET RETURN STATUS | ; 
FFCE 31 04 864 BRW =GO RETURN ; 
04 6 865 .DISABLE LOCAL_BLOCK | ; 
04 é 867 : CREATE ADDRESSEE LIST ENTRY FOR ADDRESSEE : 
§e56 869 CREATE_ADDR: :CREATE ADDRESSEE LIST ENTR 1; 
52. 50 AC 9E 0426 870 MOVAB TPA_Q UNAME (AP) , R2 [GET ADDR OF USERNAME DESCRIPTOR ; 
0032 30 042A 871 BSBW CREATE. ENT SCREATE THE ADR LIST ENTRY : 
1¢50—s«E9 0420 872 BLBC ~— RO, 108 ‘BR IF FAILURE : 
52. 51 DO 0430 873 MOVL  R1.R2 :GET ADDR OF NEW ENT ; 
7) AC DO 0433 874 MOVL TPA_L_LLNK(AP),=- ;SET ADDR OF LOGICAL ALINK ENTRY : 
08 Ag 0436 875 ADR7L~LLNK(R2) : : 
38 As) «D6 «00438 )«=— B76 INCL CNCTC NADDRS (R3) :COUNT ANOTHER ACTUAL ADDRESSEE ; 
08 A2 DD 0438 877 PUSHL ADR_C_CLNK(R2) :STACK LOGICAL LINK ENT ; 
00000000 ' EF 01 FB 043E 878 CALLS #1 SAATLSINCLINKADR s INCREMENT LINK ADDRESSEE COUNT IF NET ; 
FD67 30 +0445 879 BSBW RESET UNT SRESET LOOP COUNTER ; 
50 01 DO 0448 880 MOVL = #1, ;SET SUCCESS | ; 
04 0448 881 RET : : 
044C 88¢ 10$: | : 
50 DD 044C 88 PUSHL RO :SET FAILURE STATUS : 
50 DD O44E 884 PUSHL RO :SAVE S : 
00000000'GF 01 FB 0450 885 CALLS #1,G*LIBSSIGNAL ‘SIGNAL THE FAILURE ; 
20 AC 8E DO 0457 886 MOVL  (SP)+,TPASL_PARAM(AP) SAVE S | : 
50 01 DO 0458 887 MOVL #1,RO SET SUCCESS TO CONTINUE PARSE ; 
04 045 888 RET : ; 
045F 889 | : 
045F 890; | : 
O45 891 + ALLOCATE ENTRY AND LINK INTO LIST | : 
045F 593 : R2 = ADDR OF DESCRIPTOR OF USERNAME 
045F 894 ; R3 = ADDR OF CNCT BLOCK 
045F 895 | 
045F 896 EREATE ENTRY: 
O1FC 8F BB O045F 89 PUSHR #*M<R2,R3,R4,R5,R6,R7,RB> 
57 52 7D 0463 898 MOVQ 7SAVE USERNAME DESCR. AND CNCT ADDR | 
7E 67 3C 0466 899 MOVZWL (R?),-(SP) [GET LENGTH OF NAM hes 
1E CO 0469 900 ADDL2 #ADR_C_LENGTH, (SP) i COMPUTE SIZE OF ENT 
7E DF 046C 901 PUSHAL rit Py SET RETURN ADDR SUFFER 
08 AE DF 0466 90¢ PUSHAL :STACK ADDR OF SIZE 
00000000 ' GF 9 FB 0471 90 CALLS #3.6" "GAL 1B8GET _vM SALLOCATE IT 
20 E9 0478 904 BLBC ‘BRANCH IF ERR 
56 Hi DO 0478 905 MOVL (3+, R6 [GET ADDR OF NEW ENTRY 
0 8EDO 047E 906 POPL 
66 0 6€ 00 ¢ 481 90 MOVC (SP) ) #9 #ADR_¢ C_LENGTH,(R6) ;ZERO THE ENT 
1E A6 «004 B? O67 487 908 MOVC #0, 5 ADR T NAME ( (Rb). -COPY USERNAME INTO BLOCK 
1D A6 «667 «690 «~(048D = 909 MOVB (RY) att B ” AAMLAGTRED 7SET ADDRESSEE NAME LENGTH 


E 4 | 
vousbon tS! ENTER ADDR'= ENTER ADDRESSEE IN ADRESSE 'S-SEP-1984 01:80:06 EMAIL’ SRCIADDRLIgT MaR;1 29° (2). 


2¢ 88 $6 OF 491 910 INSQUE (R6),@CNCT_Q_ADRLST+4(R8) i INSERT aT END OF LIST 
1 56 00 0495 911 MOVL  —R6, RI SET F BLOCK TO RETURN 
0 4 DO 0498 16 MOVL  #1.RO SET RETU N sta TUS 
OiFc 8F BA 0498 913 10$:  POPR  #*M<R2,R3,R4,R5.R6,R7 URES SRESTORE REGISTERS 
05 049F 914 RSB 


F 4 
MAILSADDRLIST ADDRESSEE LIST ROUTINES 16-SEP-1984 0: 4 :35 VAX/VMS Macro V04-00 Page 2 
v04-000 GET_DIST_LIST = GET DISTRIBUTION LIST -SEP=1984 :06 CMAIL.SRCJADDRLIST.MAR; 1 . 29, | 
4A 916 .SBTTL GET_DIST_LIST = GET DISTRIBUTION LIST 

ry 
O4A0 313 ; GET_DIST_LIST = GET DISTRIBUTION LIST ACTION ROUTINE 
O4A0 3 1 ; THIS ACTION ROUTINE IS CALLED TO OPEN AND READ A DISTRIBUTION LIST FILE. 

2 | 
0440 9 : : INPUTS: 
Q04A0 924; 
0440 925 : TPASL_TOKENCNT(AP) = SIZE OF FILE SPECIFICATION. 
Q4A0 3 6 : TPASL-TOKENPTR(AP) = ADDR OF FILE SPECIFICATION. | 
° | 
aN 928 : OUTPUTS: | 
04A0 929; 

440-930: EACH ADDRESSEE IS READ FROM THE DISTRIBUTION LIST FILE AND 
04A0 931: ADDED TO THE ADDRESSEE LIST BY RECURSIVELY CALLING ADD_ADDR. | 
04A0 93¢ : IF THIS IS THE FIRST (AND HENCE ONLY) ADDRESSEE ITEM IN THE 
O40 933 ; LIST, WE WILL MODIFY THE TO LIST TO CONTAIN THE FULL FILE SPEC 

| 
04a0 935 GET _DIST_LIST: :GET DISTRIBUTION LIST | 
OFFC O4A0 936 “WORD “M<R2,R3,R4,R5,R6,R7,RB.R9,R10,R11> ; (ENTRY MASK) | 
Be 938 : CREATE A FAB AND A RAB | 
56 BO AE 9E 04A2 940 MOVAB =F ABSK_BLN(SP) ,R6 ;ALLOCATE FAB 
57 BC A6 SE 0406 941 MOVAB RABSE-BLNGRG) RE SALLOCATE RAB 
58 AO AZ SE O4AA 4g MOVAB =NAMSK~BLN(R7) RB SALLOCATE NAM 
59 FFO1 CB SE O4AE 94 MOVAB -NAMSC"MAXRSS(R8),R9 = :AND A BUFFER 
SE 59 «0 (04B3) 944 MOVL 9, SP SALLOCATE THE SPACE 
00 6€ 00 2C 0486 945 MOVCS 4#0.¢ 
6E O1F3 8F 04BA 946 oF ABSk sre snanse BLN+NAMSK_BLN+NAMSC_MAXRSS, (SP) ;ZERO FAB,RAB,NAM 
04BE 947 ASSUME FAB$B BLN EQ FABSB_BID+1 
5003 8F BO O4BE 948 MOVW  #FABSR BL Nag: FABSC"BID,- ;SFT BLOCK LENGTH AND ID FIELDS 
&6 04C2 949 FABSB_BID(R6) 
16 A602 88 O04C€3 950 BISB = #F ABSA GET. FABSB _FAC(R6);GET ACCESS ONLY 
04 A6 00000040 8F CB 04C7 951 BISL  #FABSM~SQO,FABSL-FOP(R6) ;SET SEQUENTIAL ACCESS ONLY 
A6 58 DO O4CF 93¢ MOVL 8, FABSL_NAM(R6) ~ -SET NAM ADDRES 
18 AG OO07E109A BF DO 0403-95 #MAILS_OPENIN, FABSL_CTX(R6) ;SET ERROR CODE | 
0408 954 ASSUME RABS$B BLN EQ RABSB_BID+1 
4401 8F BO 04DB 955 VW #RABSR BLN@8!RABSC"BID,- ;SET BLOCK LENGTH AND ID FIELDS | 
67 O4DF 956 RAB$B_B10(R7) 
Q4E0 957 ASSUME RABSC-SEQ EQ 0 | 
3C A? 56 DO 0460 958 L —- R6, RABSL_FAB(R7) :SET FAB ADDRESS 
18 A? 007E109A BF DO O44 959 MOVL #MAILS OF OPENIN, RABSL_CTX(R7) 
4EC 960 ASSUME EQ NAMSB_BID+1 
6002 8F BO O4EC 961 MOVW tee ANOS !NAMSE “BID.-:SET UP NAM BLOCK 
68 0470 96 NAMSB_BID(RB) 
8 59 DO O04F1 96 MOVL  R9,NARMSL_RSA(RB) 
59 «(DO O04FS «=: 964 MOVL  R9.NAMSL~ESA(RB) 
FF BF 690 O4F9 965 MOVE § #NAMSC_MAXRSS,NAMSB_RSS(R8) | 
FF BF 90 are 966 #NAMSC~MAXRSS ,NAMSB ESS (RB) | 
01 CE 9E 0503 967 MOVAB -MAILSR_INBUFFSZ(SPT,SP ; ALLOCATE USER BUFFER 
FF 8F BO 0508 968 MOVW #MAILSK~ IMBUFESE RABSU_USZ (A?) -SET USER BUFFER SIZE 
5E 00 950 3 3 MOVL SP, RABSC_UBF (R7) 7SET USER BUFFER ADDRESS 
82] 971 : OPEN THE DISTRIBUTION LIST FILE 
0512 972: 
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ST ROUTINES 16-SEP- 71984 0 143: 35 VAX/ VMS Macro v04-00 

T = GET DISTRIBUTION LIST -SEP=1984 01:50:06 (CMAIL.SRCJADDRLIST.MAR;1 
973 MOVB = TPASL_ TOKENCNT AP) ,FABSB_FNS(R6) ;SET FILE NAME SIZ 

974 MOVL TPASL-TOKENPTR(AP) ,FABSL-FNA(R6) :SET FILE NAME ADDRESS 
975 MOVAB DIST TYPE FABSL DNA(R6 rset DEFAULT FILE NAME ADDRESS 
976 MOVB #DIST_TYPE S $B DNS(R6) ;SET DEFAULT FILE NAME SIZE 
97 SOPEN FABS (ROY, "Emneotit RE PD 10. ERROR sOPEN THE FILE 
978 RO “BRTIF FAILURE 

97 ScONNec RAB=(R7) ,ERR=UTILSREPORT 10 ERROR :CONNECT THE RAB 
980 0,10$ ;BRANCH ON SUCCESS 

981 S$: BRu DIST_ERROR 

388 : IF THIS IS THE ONLY ITEM IN THE TO LIST, THEN MODIFY IT TO CONTAIN 
ope 3 RESULTANT FILE SPEC 

286 10$:; STW  TPA_W_UENT(AP) ; ANYTHING ENTERED? 

987 ; BNEQ 20$ SYES==T00 BAD 

988 : PUSHL  R6 :STACK FAB ADDRESS 

989 : CALLS #1,G°UTILSGETFILENAME GET FILE SPEC FOR FILE 

990 : PUSHAB AT_STRING SCREATE DESCRIPTOR 

991 : PUSHL #1 [OF ‘a’ 

992 : PUSHL SSTACK FILE DESCRIPTOR ADDRESS 
993 : PUSHAB 4(SP) PREF IX IT WITH 

994 : PUSHAB MAIL$Q_TO AND THE TO-LISt ADDRESS 

+54 ; CALLS #3,G*STRSCONCAT tMAKE A NEW TO-LIST 

997 : READ ALL THE ADDRESSEES AND ADD THEM TO THE ADDRESSEE LIST 
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50$: — MOVL 
CLRO 

DIST_LOOP: 
$6 


ET RAB= rig ee UTILSREPORT_ 
BLBC RO,DIS R 
OVW RABSW SRSTURY), (SP) 
BEQLU DIST 
CMPB 1 @RABSL _RBF (R7) 
BEQLU DIST 
MOVL RABSC_ RBF (R7) ,4(SP) 
PUSdL P 


CALLS #1 MAIL SUPCASE_0 
PUSHL TPARLCNCTCA (AP 


PUSHAB 
CALLS #241 VAT gb SI ADD_ADDR 
BLBS 
MOVL RO TS PARAM(AP) 
BRB D1$T_LOOP 
> ERROR ACCESSING THF FILE 
bIST_ERROR: 
CMPL RO, #RMS$_EOF 
BEQL =o 
MOVL RO, TPASL_PARAM(AP) 
DIST_DONE : 
SCLOSE (R6) 
MOVL  #1,RO 
RET 


mais. READERR ,RABSL_CTX(R7) 


CREATE ADDRESSEE DESC BUFFER 
IO_ERROR et A RECORD 
7BR’ IF R ERRO 


EOF OR 
3SET RECORD Hee IN DESCRIPTOR 


CRIPTOR 
ADD THE ADDRESSEE TO THE LIST 
:BR IF SUCCESS 
; SAVE FAILURE STATUS 


:END OF FILE? 
YES, OK 

=NO, SET CODE 

SCLOSE THE FILE 

"SET SUCCESS FOR PARSER 
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QUTINES ~SEP=1984 00:43:35 YAX/VMS Macro V04-00 Page 2 
RAILSANY_ADDRESSEES = § 3Be 01:50:06 AD eet 9 


1 
EE IF ANY ADDRESS ate MAIL.SRCJADDRLIST.MAR; 1 
-SBTTL MAILSANY_ADDRESSEES = SEE IF ANY ADDRESSEES FOUND 
FUNCTIONAL DESCRIPTION: 


LOOK THROUGH THE ADDR 
THAT WE WILL BE SENDI 


SE 


43 LIST AND SEE IF ANY FOUND 


NG 
INPUTS: 
G(AP) ADDRESS OF ADDRESSEE LISTHEAD 
ROUTINE VALUE: | 
TRUE =_THERE IS AT LEAST ONE 


Sete he Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge 
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dd dd 
SOOSOOCOOCOCOCOOCOCOOOOOOO OOOO OOCOOOOOOoOOo Sa 
PRD PPA & Be BB BBE EE AAAI 
NRO ODNAUE WN 0 OO NAME WN O DOONAN WO 


0 
0 FALSE = 
0 | 
0 em 
000¢ 8 -ENTRY MAILSANY_ADDRESSEES, “M<R2,R3> 
51 04 aC DO O MOVL 4(AP),R17 7GET ADDRESSEE LISTHEAD 
52 61 00 0 MOVL  (R1),R2 'GET FIRST ENTRY | 
51 3¢ D1 0 10S: CMPL Re ri : SEE IF DONE | 
1 13 0 BEQL 6-30 BRANCH IF YES 
0B 1c A2. 00~—=SoED's«OOSC BBS #ADR_V_NOSEND ADR_B_FLAGS(R2), 208 :BRANCH IF NOSEND SET 
50 08 A2 b9 C MOVL  ADR_C_CLNK(R2S,RO GE ET LOGICAL LINK DESCRIPTOR | 
0 1 ¢ BEQL 4087 RANCH IF NONE=-WE FOUND ONE 
08 2E a0 01 =C€E? ¢ BBC #LNK_V_DEAD,LNK_B B_FLAGS (RO) 40$ ;BRANCH IF Nor UOEAD =< FOUND ONE | 
62 dO 050 208: MOVL ADR_C_FLINK(R2)7R2 :GEf NEXT ADDRESSEE 
£6 11 0 D BRB 10$ SAND CONTINUE 
0 ds 05D 30S: CLRL hoe [NONE FOUND 
04 05D RET 
50 01 00 05D 40$:  MOVL #1,RO 
04 05D RET 
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oF .SBTTL INITIALIZE ADDRESSEE LIST 
: FUNCTIONAL DESCRIPTION: 
INITIALIZE ADDRESSEE LIST BY REMOVING ANY OLD ENTRIES FROM 
THE LIST. 
CALLING SEQUENCE: 
CALL MAILSINI_ADDR(CNCTDESC) 
INPUT PARAMETERS: 
CNCTDESC = ADDRESS OF THE CONNECT DE 
CALL, THE ADRLST MUST BE INI 


IMPLICIT INPUTS: 
NONE 


IF THIS IS THE FIRST 


“Mm 


RI 
AL 


OUTPUT PARAMETERS: 
NONE 


; IMPLICIT OUTPUTS: 
NONE 


090909090909 09 SINISE OOOO 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
ADDRESSEE AND LOGICAL LINK LIST ENTRIES REMOVED 
AND DEALLOCATED. 


IALIZE ADDRESSEE LIST 

RY MASK) 

ADDRESS OF ADDRESSEE LIST 
NUMBER OF ACTUAL ADDRESSE 
: § ST HE 
R2 GET NEXT 
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-ENTRY MAILSINI_ADDR,- ; 
“M<R2 ngs 
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MOVAB C 

10$: REMQUE @ 
8 2 

Dd 
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20$: RET 
t DEALLOCATE AN ADDRESSEE LIST ENTRY 


HEALLOC_ENTRY: 
PUSHL 


R2 
MOVZBL ADR_B_NAMLNG(R2) , -(SP) 
ADDL2 #ADR.C_LENGTH, (SP) 


TRY 

F NAM 
F BLOCK 

DR OF ENTRY 

sf OF ENTRY 
WORDS FROM STACK 
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MAILSANY_ADDRESSEES 00000583 RG REPORT _SYNTAX_ERROR 90000166 
MAILSCHECK_FO eeeneeee =X RESET CCOUNT 1AF 
MAILSCHK CCUNODES eeeeeeee = x RMS$_EOF ettrenee 
MAILSCREATELIN teres =X SCAN- ADDR 0074 
MAILSDELETELINK eeeeeree =X T SPST te 
MAILS$GET_USE eeeeeeee =X SHRSK_SHRDEF = 01 
MAILSGL_FLAGS aeeeeeee = HR$_OPENIN s 1098 
MAILSINCLINKADR eeeeeeee =X SHR$_READERR = 00001 Ht 
MAILSINI_ADDR 0000500 0 SHRS_SYNTA = 000010F 
MAILSK_INBUFFSZ = 000000F F SPEC" CONTINUE 0000054 R 04 
MAILSNET_ADDR eeeeeeee =X 03 SPEC" QUOT 0C0017A R 04 
MAILSNET"FROM eeeeeeee =X 03 STORE_LOGNAME 0 BO1ar R 03 
MAILSP HANDLER teeeeeee = X STORE-PROTOCOL 153 R 3 
MAIL$SQ_SYSRODE eeeeeeee =X 03 STORE _UNAME Q000019F R 03 
MAILS$SSB_LNM FILE_DEV wereeeee =X 05 STSS$K_ERROR = 00000002 
MAILST_OAF_ Bu eeeeeeee =X 03 STS$K_WARNING = 00000000 
MAILSUPCASE eeeenene =X 05 STSS$V_FAC_ = 00000010 
MAILS_C = 007E8112 SYSSCCOSE lalahaleheiadel 03 
MAILS$_FACILITY = 0000007E SYSSCONNECT aeeeneee 03 
MAIL$_FORWLOOP = 007E808A SYSSGET teenneee 03 
MAIL$_OPENIN = 007E109A SYSSOPEN aeeenane 03 
MAIL$_READERR = 007E108 SYSSTRNLNM eeeeeeee 03 
MAIL$_USERDSABL = 007E808 TPASK_COUNTO = 00000008 
MAIL_ADD_ADDR 0000000 TPASK_LENGTHO = 00000024 
NAMSE_B15 = 00000000 TPASL_PARAM = 00000020 
NAM$B_BLN = 00000001 TPASL_STRINGCNT = 00000008 
NAM$B_ESS = 0000000A TPASL_STRINGPTR = 0000000C 
NAMSB_RSS = 00000002 TPASL_TOKENCNT = 00000010 
NAMSC_BID = 00000002 TPASL_TOKENPTR = 00000014 
NAMSC_MAXRSS = QO0000F F TPAS_ALPHA = Popo TEE 
SK_BLN = 00000060 TPAS_ANY = QOOO01ED 
NAMSL_ESA = 0000000C TPA$_BLANK = 44 
SL_RSA = 00000004 TPA$S_DECIMAL = 000001F 
NEXT_ADDR 00000000 R 04 TPAS_DIGIT = QOOOOIEF 
eT _sP 000000B6 R 04 TPAS_EOS = 000001F7 
_SPE 000000C0 R 04 TPAS_EXIT = FFFFFFFF 
NODE~ SPECC 000000C4 R 04 TPAS_FAIL = FRFFFFFE 
NOT_GEOS 000000A8 R 04 TPAS_FILESPEC = QQO001EA 
PROTOCOL _SPEC eee: Q 04 TPAS_HEX = 000001F5 
QDIST_ 4444 43 R 04 TPAS_IDENT = ts aha 
QF ILE_SPEC 00 4 843 R 04 TPAS_KEYWORD = 00000100 
QPROT- SPEC 5000 114 R 04 TPAS_LAMB = 000001F6 
QUOTEB_SPEC 00 ia R 04 TPAS_MAXKEY = 000000DC 
QUOTE _SPEC 9000170 R 4 TPAS_OCTA = 90000164 | 
QUSER™ SPEC OF6 R 4 TPAS_ STRING = 1F0 
R = 00000008 TPA$_SUBXPR = 000001F8 
RABSB_BID = 00000000 TPAS_ SYMBOL = Q00001F1 
ABSB_BLN = S 001 TPAS$_UIC = 9000168 
RABSC_BID = 001 TPA_C_EXTRA = 4 038 
RABSC_SEQ = 0 TPA_L_CNCT = 0044 
RABSK_BLN z 44 TPA_L-LCOUNT = $ ie: 
RABSL_CTX = 00000018 TPA_L-LLNK = 030 
RABSL_FAB = 0000003¢ TPA_L_PTPA = 00000048 
RABSL_RBF = 8 TPA_L_SPST = 06 4C 
RABSL_ UBF z 4 TPA_M_ TERMINAL 2 6 1 
RABSW_RSZ = 9 3 TPA_Q-LOGNAM = 99 4 
ABSW_USZ = 0 TPA_Q_ONAME = 00000028 
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| 
A WnUENT 0000058 
UAF SL-FLAGS eeeneeee =X 03 | 
UAF $V_NOMAIL eeeeeree YX | 
USER_SPEC OOOOOODA R 04 
UTILSREPORT_10_ERROR txeeeeee Xx 03 
VMDDEF = 00000000 
VMD_B_DIRLNG = 00000041 
VMD~B~FNMLNG = 9000004¢ | 
VMD ~B~FWDLNG = 0000004 
VMD~B SPARE 1 = 0000003 | 
_C_LENGT = 00000044 
D_C_USERNAME = 0000001F 
VMD“KTLENGTH = 00000044 
VMAD_K_USERNAME = 0000001F 
_L_ SPARE = 00000023 
“M~NOAUTOPURGE = 00000004 
VED "M~SELFREPLY = 00000002 
VMD_M_SELF SEND = 00000001 
D_S_SPARE = 0000001C 
VMD_S_SPARE1 = 00000002 
VMD_S_USERNAME = 0000001F 
VED ~S~VMDDEF = 00000044 
~T7FWDNAM = 00000044 
VHD ~T “USERNAME = 00000000 
_V_NOAUTOPURGE = 00000002 
VAD _V_SELFREPLY = 00000001 
VMD_V_SELF SEND = 00000000 
_W_FLAGS = 0000001F 
VMD~W"MAIL = 00000021 
wees seen anon nae + 
: ; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
Ss 00000000 <( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS sisi 4 4! ( 0.) O1¢ +1.) NOPIC USR CON S LCL NOSHR’ EXE WRT NOVEC BYTE 
SPLITS 00000 ( ee) 8s ( §°} NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC LONG 
SCODES 00000 1 ( 1551.) O35 ¢ -) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 
_LIBSSTATES 00000182 ( 386.) 04(¢ 4.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC BYTE | 
LIBSKEYO$ 00000000 ( a2 Ot But PIC USR CON REL LCL SHR EXE =RD NOWRT NOVEC WORD 
“LIBSKEYIS 00000000 <( 0.) 06¢ 6.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC WORD | 
geo wm aewn eee ne eoua mm ancasacas } j 
{Performance indicators | | 
Phase Page faults CPU Time Elapsed Time 
jnittotizetion 135 00:00:00: 48 90:00:07.3 
ommand processin :00:00. 700:04. 
Pass 4 ° 583 00; 6: 1.0 00:09:29.1 | 


MAILSADDRLIST ADDRESSEE LIST ROUTINES 19736-1386 0:4 :35  VAX/VMS Macro v04-00 Page 
VAX-11 Macro Run Statistics -SEP=-1984 50:06 CMAIL.SRCJADDRLIST.MAR;1 

Symbol table sort :00:01.04 0:00:03.58 

Pass 219 :00: 1-8 0:00: $0 

Symbol table output 4 :00: .6 0:00:00. 

Psect synopsis output :00:00. 0:00:00.0 

Cross-reference output 0:00: 9-9 8:8 : 8-9 

Assembler run totals 100 0:00:27.80 :02:03.11 


The yorking set Limit was 2100 pages. ; 

168435 bytes (329 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1096 non-local and 50 local symbols. 
1118 source Lines were read in Pass 1, produc ing 41 object records in Pass 2. 

55 pages of virtual memory were used to define 42 macros. 
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Macro Library name Macros defined 
-$255$DUA28 : (MAIL .OBJ JMAILMAC.MLB; 1 6 
_$255$DUA28: (SYS .OBJJLIB.MLB; 0 
$255$DUA28: CSYSLIBJSTARLET.MLB; 2 26 
TOTALS (all Libraries) 32 


1483 GETS were required to define 32 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:ADDRLIST/OBJ=OBJ$:ADDRLIST MSRC$:ADDRLIST/UPDATE=(ENHS:ADDRLIST) +EXECML$/LIB+LIB$:MAILMAC/LIB 
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